﻿Module Module1
    Public Class articulos
        Public nombre(1) As String
        Public precio(1) As Decimal
    End Class

    Sub Main()

        Dim cont, cont1 As Integer
        Dim seguir, preci As String
        Dim objArticulos As articulos = New articulos
        cont = 0
        Console.Title = "ejercicio Bucles 6"
        Do
            Console.Write("Artículo " & cont + 1 & " ")
            objArticulos.nombre(cont) = Console.ReadLine()
            Do
                Console.Write("Precio ")
                preci = Console.ReadLine()

            Loop Until IsNumeric(preci) AndAlso preci > 0

            objArticulos.precio(cont) = Decimal.Parse(preci)
            Do
                Console.Write("Otro Articulo (S/N) ")
                seguir = Console.ReadLine()
            Loop Until seguir.ToUpper = "N" Or seguir.ToUpper = "S"

            cont += 1
            ReDim Preserve objArticulos.nombre(cont)
            ReDim Preserve objArticulos.precio(cont)

        Loop Until Not seguir.ToUpper = "S"
        For Each articulo As String In objArticulos.nombre
            If cont < 3 AndAlso objArticulos.precio(cont1) > objArticulos.precio(cont1 + 1) Then
                objArticulos.nombre(0) = articulo
                objArticulos.precio(0) = objArticulos.precio(cont1)
            ElseIf cont < 3 AndAlso objArticulos.precio(cont1) > objArticulos.precio(cont1 + 1) Then
                objArticulos.nombre(1) = articulo
                objArticulos.precio(1) = objArticulos.precio(cont1 + 1)
            End If
            cont1 += 1
        Next
        Console.WriteLine("El articulo mas caro es: " & objArticulos.nombre(0) & " y el precio es " & objArticulos.precio(cont1))
        Console.WriteLine("El articulo mas barato es: " & objArticulos.nombre(1) & " y el precio es " & objArticulos.precio(cont1 + 1))
        Console.ReadKey()


    End Sub

End Module
